Top 10k strings from Star Trek 3000 (1983)(DK'Tronics).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [TAP] /

Back to the directory listing

   4 S$(I,J)=X$:
   3 S$(I,J)=B$
   3 ,h,h,h,h,20
   2 zz;"Score:       ";
   2 S$(X,Y)=E$:
   2 S$(I,J)=X$
   2 R$(M))=X$:
   2 G$(U,V4-H)=A$(U,V4-H):
   2 A$(U,V4-H)=
   2 A$(U,V4-H)-H):
   2 ,h,h,h,h,31
   2 "WAS A BIT LARGE!":
   2 "CONDITION 
   2             
   1 sk=-d(j5)*20
   1 sk=-(I6*100
   1 s$(i,j)=x$
   1 r=r-(k*500
   1 only ";E;" Units left":
   1 n8;I5;" STARDATES":
   1 n8,n4;"GOING WHERE NO MAN HAS";
   1 m/code    
   1 l$=X$+X$+X$+X$+X$+X$+X$+X$+"
   1 instruct  
   1 h;"En'gy";
   1 h;"     ";
   1 h,h,h,h,h,h,25
   1 f8;" Photon torpedoes fired":
   1 f7;" missed"
   1 c9-c;" out of ";c9;" crew died.":
   1 ZZ;"Mob'y";
   1 ZZ;" 12345678";
   1 You hit nothing Capt.":
   1 You have just tried to":
   1 W=Warp drive
   1 W;" appears excessive" 
   1 V4-N4)=A$(U,V4
   1 V4)=A$(U,V4-N2
   1 Torpedo absorbed by star.":
   1 T=Torpedo (PHOTON)
   1 Startrek 3000
   1 Starfleet have given":
   1 Starbase DESTROYED!.....":
   1 Sickbay here":
   1 Score=";sc:
   1 STOP THE TAPE RECORDER"
   1 STATUS REPORT.":
   1 STARTREK  
   1 START tape";
   1 STAR DESTROYED":
   1 SPOCK:STARBASE SHIELDS...":
   1 SPACE STORM
   1 SHIELDS PREVENT DAMAGE":
   1 S=Short scanner
   1 S;" UNITS HIT FROM S ";Q$(M);R$(M)
   1 S;" UNITS HIT ";:
   1 S$(X1,Y1)=I$:
   1 S$(X,Y)=X$:
   1 S$(N8,N8):
   1 S$(I,J)=O$
   1 S$(I,J)=K$
   1 Q8;" KLINGON";:
   1 Penalty (for Quitting)...":
   1 PRESS a key to continue
   1 PLEASE...":
   1 PHOTON TORPEDO is loaded":
   1 P=D9-D+S9:
   1 P$(M)="300":
   1 P$(M)="000":
   1 P$(M)="000"
   1 P$(I)="300":
   1 OVERLOADED
   1 No energy":
   1 No damage":
   1 NOTE this record will need      updating if Klingons are mobile.":
   1 NO Torpedoes left":
   1 N8,H;"6";L$;
   1 N4;I;":";:
   1 N4;"KL'N,BASE,STAR":
   1 N4;"    ";V-H;"   ";V;"   ";V+H;" "
   1 N4,H;"2";L$;
   1 N2,ZZ;"  1   2   3   4   5   6   7   8 ";
   1 Mission abandoned....":
   1 M;" sectors at the most"
   1 Location Q.";U;V;" S.";X;Y;" ":
   1 L=Long scanner
   1 L$="                                ":
   1 KLINGONS ON THE MOVE";:
   1 KLINGON ATTACK"
   1 K;" KLINGONS LEFT":
   1 J=(V-H)*N4
   1 J+N4)=" 00"+
   1 J)=A$(I,J-N2
   1 It missed Captain ";n$:
   1 Insufficient energy Sir,":
   1 I+N2,J+H;"
   1 I am sorry captain but":
   1 I am sorry capt. ";n$:
   1 H;G$(H);L$;G$(N2);L$;G$(3
   1 H;A$(I,J-N3
   1 H;"     ";
   1 G=Galactic record
   1 G$(U,V4-N2)=A$(U,V4-N2):
   1 G$(U,V4-N2
   1 G$(U,V4)=A$(U,V4):
   1 G$(I)=" --- --- --- --- --- --- --- ---":
   1 Final score=";sc:
   1 Farewell capt. ";N$
   1 F;" TORPEDOES":
   1 Enterprise is DOCKED"
   1 ENTERPRISE IS DOCKED SIR":
   1 EMERGENCY STOP":
   1 Dillithuim crystals have":
   1 DESTROYED":
   1 DAMAGE REPORT.":
   1 D=D-(Q5*50
   1 D;" STARDATES LEFT":
   1 D(J5)=D(J5)+H:
   1 D(J5)=D(J5)+
   1 D(I)=D(I)-H:
   1 C;" CREW":
   1 BONUS SCORE
   1 BLACK HOLE
   1 B;" BASES":
   1 Automatic 
   1 ALL SYSTEMS OK":
   1 A$(X1,Y4-N2)=
   1 A$(X1,Y4-N2)+H):
   1 A$(X1,Y4-H)=
   1 A$(X1,Y4-H)+H):
   1 A$(U,V4-N2)=
   1 A$(U,V4-N2):
   1 A$(U,V4-N2)-H):
   1 A$(U,V4-H):
   1 A$(U,V4)-H):
   1 A$(P,G*N4-N2)=
   1 A$(P,G*N4-N2)+H):
   1 A$(I,J*N4-N2)=ZZ
   1 A$(I,J*N4-N2)=
   1 A$(I,J*N4-N2)-H):
   1 ;"recorder  "
   1 ;"This may"'"  be"'"obtained"'"during"'"the game."
   1 ;"The object of Startrek is to"
   1 ;"Startrek 3000"''
   1 ;"Startrek 3000"
   1 ;"ENTERING GALAXY";
   1 ;" 12345678";
   1 ;"                        "
   1 360),'C' help ";
   1 ,zz;"directions to help"
   1 ,zz;"It has been nice meeting you..."''"
   1 ,zz;"                                ";
   1 ,n4;"in degrees.";
   1 ,n4;"Shown is some";
   1 ,n4;"Enter course";
   1 ,h,h,h,h,h,254
   1 ,ZZ;"1"'" "'"2"'" "'"3"'" "'"4"'" "'"5"'" "'"6"'" "'"7"'" "'"8"'" "
   1 ,N8;"GONE BEFORE!"
   1 ,H;"7";L$;
   1 ,H;"5";L$;
   1 ,H;"4";L$;
   1 ,H;"3";L$;
   1 ,H;"1";L$;
   1 *N2)+H+N8/I5:
   1 ** Enterprise destroyed":
   1 );L$;G$(N8);L$
   1 );L$;G$(N4);L$;G$(5
   1 ''"The Enterprise accepts single   key commands as follows...."
   1 ''"STARTREK by M.Florey.48K Version"
   1 ''"  In a 8X8 quadrant Galaxy."'"   Each quadrant is divided"'"    into 8X8 sectors." 
   1 '"What is your name?"'"(Not more than Six letters)":
   1 '"Enterprise has been destroyed..":
   1 '"Captain ";n$;" on this mission":
   1 "your order seems illogical.....":
   1 "you destroyed ";k9-k;" Klingons"
   1 "rid the galaxy of evil Klingons"''"To do this you have command of"''" the starship ENTERPRISE."
   1 "orders to stay in this Galaxy":
   1 "by ";A;" Energy units!":
   1 "but we can only try ";
   1 "at the most.":
   1 "You must now find the rest....":
   1 "You have plunged into a rotating":
   1 "You are hurtling through a space":
   1 "YOU HAVE RUN OUT OF TIME,THE"'"FEDERATION HAS BEEN CONQUERED!":
   1 "Warp factor ";w:
   1 "Warp Factor(IN SECTORS) ";
   1 "WELL DONE!":
   1 "WARP DRIVE";
   1 "USING ";A;" UNITS OF ENERGY"
   1 "Torpedoes....",f*100
   1 "Then enter course in degrees.   Shown is some directions to helpthe non-familiar."
   1 "TORPEDOES";
   1 "THAT NUMBER ";I$:
   1 "THAT ";I$:
   1 "T=Photon Torpedo.":
   1 "STARTREK"
   1 "STARTREK by M.Florey.48K Version"
   1 "STARDATE ";
   1 "SHORT RANGE";
   1 "SHIELDS";
   1 "S=Short scanner.   P=Phasor."
   1 "S ";Q$(M);R$(M);:
   1 "Power surge...Energy increased":
   1 "Phasor energy used ";a;" units.":
   1 "Maximium warp Factor is ";
   1 "MISSION COMPLETED"
   1 "Leave the galaxy":
   1 "LONG RANGE";
   1 "L=Long scanner.    Q=Quit.":
   1 "Klingons now are the hunted!":
   1 "Klingons left -";k*500
   1 "Klingon mobility? (0 to 100) ";
   1 "It must be the stress"
   1 "IMPULSE ENGINES ONLY":
   1 "How many stars(max.9/quadrant)";
   1 "How many Klingons?(40 Max.) ";
   1 "How many Bases in galaxy        Max.20 ";
   1 "GALACTIC RECORD";
   1 "G=Galactic record."
   1 "Energy left..",
   1 "ENERGY? ";
   1 "Do you wish to define how many  bases,Stars,Klingons ";
   1 "D=Damage report.   H=Help.":
   1 "Crew left....",c*5
   1 "Course?(0
   1 "Course ";i;" Degrees."
   1 "Capt. ";n$;" ";I6;:
   1 "C=Course angles.   W=Warp drive."
   1 "Another mission? ";
   1 "All crew is dead.(INCLUDING YOU)":
   1 "Acivated":
   1 "30"+I*I+J*J)+H):
   1 "....Human error!":
   1 " person killed."
   1 " people killed."
   1 " Your order of Warp factor":
   1 " You have the options of:"
   1 " Entering Quadrant"
   1 "  When asked for COURSE? as in  warping and torpedo direction"
   1 "  POSITION UNKNOWN......."
   1 "  Fascinating":
   1 "     ESTIMATED FOR REPAIR":
   1  used for the         destruction of Klingons."'"  It is possible to destroy morethan one Klingon using Phasors."'"Fires in all directions."'"Effect of Phasor decreases with distance."'"NOTE uses ships energy"
   1  used for movementwithin the galaxy."
   1  used for   the destruction of klingons":
   1  used for      mapping Quadrants where the     Enterprise is located."
   1  indicates 
   1  gives Damage report."
   1  for surplus:":
   1  Used for       LOCATION of Klingons,Bases,Starsand updating Galactic record."'
   1  Stars                 
   1  STARBASE DESTROYED SIR!":
   1  Record of   Klingons,bases,stars            Shown as 3 numbers for example   
   1  Now try again,THIS time using     only six letters maximum.    ":
   1  Klingons,
   1  KLINGONS IN QUADRANT":
   1  HIT A STAR!":
   1  Gives status Report  "
   1  Base    and 
   1  ";n$;" orders please?"
   1  ";N$;" orders please?";
   1             ";:
   1              ":
   1               ";